Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

Namespace Ex08_Mp3
	Public Partial Class Parameters
		Inherits Form
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub label2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles label2.Click

		End Sub

		Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
			'Set default values

			LstBmpType.SelectedIndex = 0
			LstRenderingMode.SelectedIndex = LstBmpType.SelectedIndex
			LstScreenResolution.SelectedIndex = LstRenderingMode.SelectedIndex
			LstGfxMode.SelectedIndex = 4
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
			Dim M As Main = New Main()
			M.Str_ScreenResolution = LstScreenResolution.Text
			M.Str_GfxMode = LstGfxMode.Text
			M.Str_RenderingMode = LstRenderingMode.Text
			M.Str_BmpType = LstBmpType.Text

			Me.Hide()
			M.WinMain()
			Me.Show()
		End Sub
	End Class
End Namespace